Filename	(eval 1128)[/usr/share/perl5/CGI.pm:932]
Statements	Executed 3 statements in 15µs
Eval Invoked At	/usr/share/perl5/CGI.pm line 932
Sibling evals	1, 2, 3, 4, 5, 6

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0s	0s	CGI::::httpsCGI::https

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package CGI; sub https {
2	1	12µs	1	7µs	my ($self,$parameter) = self_or_CGI(@_); # spent 7µs making 1 call to CGI::self_or_CGI
3	1	200ns			if ( defined($parameter) ) {
4					$parameter =~ tr/-a-z/_A-Z/;
5					if ( $parameter =~ /^HTTPS(?:_|$)/ ) {
6					return $ENV{$parameter};
7					}
8					return $ENV{"HTTPS_$parameter"};
9					}
10					return wantarray
11	1	2µs			? grep { /^HTTPS(?:_|$)/ } keys %ENV
12					: $ENV{'HTTPS'};
13					}
14
15					;